home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / 4dostool / 4dpsetdj.zip / PSET.BTM < prev    next >
Text File  |  1993-01-22  |  2KB  |  68 lines

  1. @echo off
  2. color bri yellow on black
  3. cd \bin\pset
  4. setlocal
  5. :START
  6. set arg=%@SUBSTR[%@select[action0,2,40,10,50,PSET],15,1]
  7. IFF %arg==A THEN
  8. :RESET
  9. echos E&l0A&l0O&l1L&l0O(&k5W(10U(s0P(s12H(s10V(s8T(s1Q>PRN
  10.  echo Printer now reset to standard defaults
  11. IFF %arg==A THEN 
  12.  GOTO END
  13. ENDIFF
  14.  goto START
  15. ENDIFF
  16. IFF %arg==B THEN 
  17.  echo Load the envelope NOW.
  18.   pause
  19.  echos &l81A&l0O((10U(s0P(s12H(s8T>PRN
  20.  copy/Q DOWN PRN
  21.  echos &a40L>PRN
  22. emacs @pset prn
  23.  goto RESET
  24. ENDIFF
  25. IFF %arg==C THEN
  26.  input Left Margin ? %%margin
  27. IFF "%margin"=="" THEN
  28.  set margin=0
  29. ENDIFF
  30.  echos &a>PRN
  31.  echos %margin>PRN
  32.  echos L>PRN
  33. goto START
  34. ENDIFF
  35. IFF %arg==E THEN
  36.  echos &l0L>PRN
  37.  echos &k6W>PRN
  38.   echo Text scaling enabled:  66 lines per page
  39. goto START
  40. ENDIFF
  41. IFF %arg==D THEN
  42. echo FONT SELECTION:
  43. goto FONT
  44. goto start
  45. ENDIFF
  46. :END
  47. endlocal
  48. color white on black
  49. cd -
  50. cancel
  51. :FONT
  52. set font=%@SUBSTR[%@select[actionp,2,40,20,58,STYLE─────────CPI],0,17]
  53. IF "%font"=="Prestige Elite 12" echos &l0O((10U(s0P(s12H(s10V(s8T>PRN ^ echo %font ^ goto START
  54. IF "%font"=="Prestige Elite 24" echos &l0O((10U(s0P(s24H(s10V(s8T>PRN ^ echo %font ^ goto START
  55. IF "%font"=="Letter Gothic  12" echos &l0O((10U(s0P(s12H(s12V(s6T>PRN ^ echo %font ^ goto START
  56. IF "%font"=="Letter Gothic  24" echos &l0O((10U(s0P(s24H(s12V(s6T>PRN ^ echo %font ^ goto START
  57. IF "%font"=="Courier         5" echos &l0O((10U(s0P(s5H(s12V(s3T>PRN ^ echo %font ^ goto START
  58. IF "%font"=="Courier        10" echos &l0O((10U(s0P(s10H(s12V(s3T>PRN ^ echo %font ^ goto START
  59. IF "%font"=="Courier        17" echos &l0O((10U(s0P(s16.67H(s12V(s3T>PRN ^ echo %font ^ goto START
  60. IF "%font"=="Courier        20" echos &l0O((10U(s0P(s20H(s12V(s3T>PRN ^ echo %font ^ goto START
  61. IF "%font"=="Courier       10l" echos &l1O((10U(s0P(s10H(s12V(s3T>PRN ^ echo %font ^ goto START
  62. IF "%font"=="Courier       17l" echos &l1O((10U(s0P(s16.73H(s12V(s3T>PRN ^ echo %font ^ goto START
  63. IF "%font"=="Courier       20l" echos &l1O((10U(s0P(s20H(s12V(s3T>PRN ^ echo %font ^ goto START
  64. IF "%font"=="CG Times       PS" echos &l0O((10U(s1P(s12V(s4101T>PRN ^ echo %font ^ goto START
  65. IF "%font"=="─────portrait────" goto FONT
  66. IF "%font"=="────landscape────" goto FONT
  67. echo FONT UNCHANGED^goto START
  68.